home *** CD-ROM | disk | FTP | other *** search
/ Programmer Power Tools / Programmer Power Tools.iso / surfmodl / surfm203.arc / SURFSRC.ARC / MENU.INC < prev    next >
Encoding:
Text File  |  1988-02-06  |  1.1 KB  |  34 lines
  1. procedure MENU (var Cmmd: integer);
  2.  
  3.   begin
  4.     repeat
  5.       openwin (13,6,67,21);
  6.       gotoXY(1,1);
  7.       writeln ('            SURFMODL ', Surfmvsn, ' (',Lastupd,')');
  8.       writeln;
  9.       writeln ('    by Kenneth Van Camp and his Band of Merry Men');
  10.       writeln ('       (Turbo 4.0 conversion by Kevin Lowey)');
  11.       writeln;
  12.       writeln ('                     MAIN MENU');
  13.       writeln;
  14.       writeln ('               1  Change Parameters');
  15.       writeln ('               2  Wire Frame Plot');
  16.       writeln ('               3  Hidden Line Removal');
  17.       writeln ('               4  Surface Model');
  18.       writeln ('               0  Exit Program');
  19.       writeln;
  20.       write ('Command: ');
  21.       Cmmd := getkey;
  22.       if (Cmmd < 0) or (Cmmd > 4) then
  23.         write(^G)
  24.       else begin
  25.         writeln (cmmd);
  26.         if cmmd = 0 then begin
  27.           write ('Do you really want to quit (Y/N): ');
  28.           if upcase (readkey) <> 'Y' then
  29.             cmmd := -1;
  30.         end;
  31.       end;
  32.     until ((Cmmd >= 0) and (Cmmd < 5));
  33. end; { procedure Menu }
  34.